/ Revista CD Expert 31 / CD Expert nº 31 Unreal Mission Pack I.iso / System / IpDrv.u / IpAddr_UdpBeacon_ScriptText.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 62 19 2f 2f 3d 3d 3d 3d |........|b.//====|
|00000010| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000020| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000030| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000040| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000050| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 0a 2f 2f 20 55 64 |========|=..// Ud|
|00000060| 70 42 65 61 63 6f 6e 3a | 20 42 61 73 65 20 63 6c |pBeacon:| Base cl|
|00000070| 61 73 73 20 6f 66 20 62 | 65 61 63 6f 6e 20 73 65 |ass of b|eacon se|
|00000080| 6e 64 65 72 20 61 6e 64 | 20 72 65 63 65 69 76 65 |nder and| receive|
|00000090| 72 2e 0d 0a 2f 2f 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |r...//==|========|
|000000a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000e0| 3d 3d 3d 0d 0a 63 6c 61 | 73 73 20 55 64 70 42 65 |===..cla|ss UdpBe|
|000000f0| 61 63 6f 6e 20 65 78 74 | 65 6e 64 73 20 55 64 70 |acon ext|ends Udp|
|00000100| 4c 69 6e 6b 0d 0a 09 63 | 6f 6e 66 69 67 0d 0a 09 |Link...c|onfig...|
|00000110| 74 72 61 6e 73 69 65 6e | 74 3b 0d 0a 0d 0a 76 61 |transien|t;....va|
|00000120| 72 28 29 20 67 6c 6f 62 | 61 6c 63 6f 6e 66 69 67 |r() glob|alconfig|
|00000130| 20 62 6f 6f 6c 20 20 20 | 20 20 20 20 44 6f 42 65 | bool   |    DoBe|
|00000140| 61 63 6f 6e 3b 0d 0a 76 | 61 72 28 29 20 67 6c 6f |acon;..v|ar() glo|
|00000150| 62 61 6c 63 6f 6e 66 69 | 67 20 69 6e 74 20 20 20 |balconfi|g int   |
|00000160| 20 20 20 20 20 53 65 72 | 76 65 72 42 65 61 63 6f |     Ser|verBeaco|
|00000170| 6e 50 6f 72 74 3b 09 09 | 2f 2f 20 4c 69 73 74 65 |nPort;..|// Liste|
|00000180| 6e 20 70 6f 72 74 0d 0a | 76 61 72 28 29 20 67 6c |n port..|var() gl|
|00000190| 6f 62 61 6c 63 6f 6e 66 | 69 67 20 69 6e 74 20 20 |obalconf|ig int  |
|000001a0| 20 20 20 20 20 20 42 65 | 61 63 6f 6e 50 6f 72 74 |      Be|aconPort|
|000001b0| 3b 09 09 09 2f 2f 20 52 | 65 70 6c 79 20 70 6f 72 |;...// R|eply por|
|000001c0| 74 0d 0a 76 61 72 28 29 | 20 67 6c 6f 62 61 6c 63 |t..var()| globalc|
|000001d0| 6f 6e 66 69 67 20 66 6c | 6f 61 74 20 20 20 20 20 |onfig fl|oat     |
|000001e0| 20 42 65 61 63 6f 6e 54 | 69 6d 65 6f 75 74 3b 0d | BeaconT|imeout;.|
|000001f0| 0a 76 61 72 28 29 20 67 | 6c 6f 62 61 6c 63 6f 6e |.var() g|lobalcon|
|00000200| 66 69 67 20 73 74 72 69 | 6e 67 20 20 20 20 20 42 |fig stri|ng     B|
|00000210| 65 61 63 6f 6e 50 72 6f | 64 75 63 74 3b 0d 0a 0d |eaconPro|duct;...|
|00000220| 0a 76 61 72 20 69 6e 74 | 09 55 64 70 53 65 72 76 |.var int|.UdpServ|
|00000230| 65 72 51 75 65 72 79 50 | 6f 72 74 3b 0d 0a 0d 0a |erQueryP|ort;....|
|00000240| 66 75 6e 63 74 69 6f 6e | 20 42 65 67 69 6e 50 6c |function| BeginPl|
|00000250| 61 79 28 29 0d 0a 7b 0d | 0a 09 69 66 28 20 42 69 |ay()..{.|..if( Bi|
|00000260| 6e 64 50 6f 72 74 28 53 | 65 72 76 65 72 42 65 61 |ndPort(S|erverBea|
|00000270| 63 6f 6e 50 6f 72 74 29 | 20 29 0d 0a 09 7b 0d 0a |conPort)| )...{..|
|00000280| 09 09 6c 6f 67 28 20 22 | 53 65 72 76 65 72 42 65 |..log( "|ServerBe|
|00000290| 61 63 6f 6e 20 6c 69 73 | 74 65 6e 69 6e 67 20 6f |acon lis|tening o|
|000002a0| 6e 20 70 6f 72 74 20 22 | 24 53 65 72 76 65 72 42 |n port "|$ServerB|
|000002b0| 65 61 63 6f 6e 50 6f 72 | 74 20 29 3b 0d 0a 09 7d |eaconPor|t );...}|
|000002c0| 0d 0a 09 65 6c 73 65 0d | 0a 09 7b 0d 0a 09 09 6c |...else.|..{....l|
|000002d0| 6f 67 28 20 22 53 65 72 | 76 65 72 42 65 61 63 6f |og( "Ser|verBeaco|
|000002e0| 6e 20 66 61 69 6c 65 64 | 3a 20 43 6f 75 6c 64 20 |n failed|: Could |
|000002f0| 6e 6f 74 20 62 69 6e 64 | 20 70 6f 72 74 20 22 24 |not bind| port "$|
|00000300| 53 65 72 76 65 72 42 65 | 61 63 6f 6e 50 6f 72 74 |ServerBe|aconPort|
|00000310| 20 29 3b 0d 0a 09 7d 0d | 0a 09 42 72 6f 61 64 63 | );...}.|..Broadc|
|00000320| 61 73 74 42 65 61 63 6f | 6e 28 29 3b 20 2f 2f 20 |astBeaco|n(); // |
|00000330| 49 6e 69 74 69 61 6c 20 | 6e 6f 74 69 66 69 63 61 |Initial |notifica|
|00000340| 74 69 6f 6e 2e 0d 0a 7d | 0d 0a 0d 0a 66 75 6e 63 |tion...}|....func|
|00000350| 74 69 6f 6e 20 42 72 6f | 61 64 63 61 73 74 42 65 |tion Bro|adcastBe|
|00000360| 61 63 6f 6e 28 29 0d 0a | 7b 0d 0a 09 6c 6f 63 61 |acon()..|{...loca|
|00000370| 6c 20 49 70 41 64 64 72 | 20 41 64 64 72 3b 0d 0a |l IpAddr| Addr;..|
|00000380| 09 6c 6f 63 61 6c 20 73 | 74 72 69 6e 67 20 42 65 |.local s|tring Be|
|00000390| 61 63 6f 6e 54 65 78 74 | 3b 0d 0a 0d 0a 09 4c 6f |aconText|;.....Lo|
|000003a0| 67 28 20 22 42 72 6f 61 | 64 63 61 73 74 69 6e 67 |g( "Broa|dcasting|
|000003b0| 20 42 65 61 63 6f 6e 22 | 20 29 3b 0d 0a 0d 0a 09 | Beacon"| );.....|
|000003c0| 41 64 64 72 2e 41 64 64 | 72 20 3d 20 42 72 6f 61 |Addr.Add|r = Broa|
|000003d0| 64 63 61 73 74 41 64 64 | 72 3b 0d 0a 09 41 64 64 |dcastAdd|r;...Add|
|000003e0| 72 2e 50 6f 72 74 20 3d | 20 42 65 61 63 6f 6e 50 |r.Port =| BeaconP|
|000003f0| 6f 72 74 3b 0d 0a 09 42 | 65 61 63 6f 6e 54 65 78 |ort;...B|eaconTex|
|00000400| 74 20 3d 20 4c 65 76 65 | 6c 2e 47 61 6d 65 2e 47 |t = Leve|l.Game.G|
|00000410| 65 74 42 65 61 63 6f 6e | 54 65 78 74 28 29 3b 0d |etBeacon|Text();.|
|00000420| 0a 09 53 65 6e 64 54 65 | 78 74 28 20 41 64 64 72 |..SendTe|xt( Addr|
|00000430| 2c 20 42 65 61 63 6f 6e | 50 72 6f 64 75 63 74 20 |, Beacon|Product |
|00000440| 40 20 4d 69 64 28 4c 65 | 76 65 6c 2e 47 65 74 41 |@ Mid(Le|vel.GetA|
|00000450| 64 64 72 65 73 73 55 52 | 4c 28 29 2c 49 6e 53 74 |ddressUR|L(),InSt|
|00000460| 72 28 4c 65 76 65 6c 2e | 47 65 74 41 64 64 72 65 |r(Level.|GetAddre|
|00000470| 73 73 55 52 4c 28 29 2c | 22 3a 22 29 2b 31 29 20 |ssURL(),|":")+1) |
|00000480| 40 20 42 65 61 63 6f 6e | 54 65 78 74 20 29 3b 0d |@ Beacon|Text );.|
|00000490| 0a 7d 0d 0a 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |.}......|function|
|000004a0| 20 42 72 6f 61 64 63 61 | 73 74 42 65 61 63 6f 6e | Broadca|stBeacon|
|000004b0| 51 75 65 72 79 28 29 0d | 0a 7b 0d 0a 09 6c 6f 63 |Query().|.{...loc|
|000004c0| 61 6c 20 49 70 41 64 64 | 72 20 41 64 64 72 3b 0d |al IpAdd|r Addr;.|
|000004d0| 0a 0d 0a 09 4c 6f 67 28 | 20 22 42 72 6f 61 64 63 |....Log(| "Broadc|
|000004e0| 61 73 74 69 6e 67 20 51 | 75 65 72 79 20 42 65 61 |asting Q|uery Bea|
|000004f0| 63 6f 6e 22 20 29 3b 0d | 0a 0d 0a 09 41 64 64 72 |con" );.|....Addr|
|00000500| 2e 41 64 64 72 20 3d 20 | 42 72 6f 61 64 63 61 73 |.Addr = |Broadcas|
|00000510| 74 41 64 64 72 3b 0d 0a | 09 41 64 64 72 2e 50 6f |tAddr;..|.Addr.Po|
|00000520| 72 74 20 3d 20 42 65 61 | 63 6f 6e 50 6f 72 74 3b |rt = Bea|conPort;|
|00000530| 0d 0a 0d 0a 09 53 65 6e | 64 54 65 78 74 28 20 41 |.....Sen|dText( A|
|00000540| 64 64 72 2c 20 42 65 61 | 63 6f 6e 50 72 6f 64 75 |ddr, Bea|conProdu|
|00000550| 63 74 20 40 20 55 64 70 | 53 65 72 76 65 72 51 75 |ct @ Udp|ServerQu|
|00000560| 65 72 79 50 6f 72 74 20 | 29 3b 0d 0a 7d 0d 0a 0d |eryPort |);..}...|
|00000570| 0a 0d 0a 65 76 65 6e 74 | 20 52 65 63 65 69 76 65 |...event| Receive|
|00000580| 64 54 65 78 74 28 20 49 | 70 41 64 64 72 20 41 64 |dText( I|pAddr Ad|
|00000590| 64 72 2c 20 73 74 72 69 | 6e 67 20 54 65 78 74 20 |dr, stri|ng Text |
|000005a0| 29 0d 0a 7b 0d 0a 09 69 | 66 28 20 54 65 78 74 20 |)..{...i|f( Text |
|000005b0| 3d 3d 20 22 52 45 50 4f | 52 54 22 20 29 0d 0a 09 |== "REPO|RT" )...|
|000005c0| 09 42 72 6f 61 64 63 61 | 73 74 42 65 61 63 6f 6e |.Broadca|stBeacon|
|000005d0| 28 29 3b 0d 0a 0d 0a 09 | 69 66 28 20 54 65 78 74 |();.....|if( Text|
|000005e0| 20 3d 3d 20 22 52 45 50 | 4f 52 54 51 55 45 52 59 | == "REP|ORTQUERY|
|000005f0| 22 20 29 0d 0a 09 09 42 | 72 6f 61 64 63 61 73 74 |" )....B|roadcast|
|00000600| 42 65 61 63 6f 6e 51 75 | 65 72 79 28 29 3b 0d 0a |BeaconQu|ery();..|
|00000610| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 44 65 |}....fun|ction De|
|00000620| 73 74 72 6f 79 65 64 28 | 29 0d 0a 7b 0d 0a 09 53 |stroyed(|)..{...S|
|00000630| 75 70 65 72 2e 44 65 73 | 74 72 6f 79 65 64 28 29 |uper.Des|troyed()|
|00000640| 3b 0d 0a 09 4c 6f 67 28 | 22 53 65 72 76 65 72 42 |;...Log(|"ServerB|
|00000650| 65 61 63 6f 6e 20 44 65 | 73 74 72 6f 79 65 64 22 |eacon De|stroyed"|
|00000660| 29 3b 0d 0a 7d 0d 0a 0d | 0a 0d 0a 00             |);..}...|....    |
+--------+-------------------------+-------------------------+--------+--------+